#!/usr/bin/env perl

use utf8;
use strict;

if("Hello there, neighor" =~ /\s(\w+),/){
	print "That actually matched ($`)'$&'($').\n";
}
